home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / sound / mrmpeg / getinfo.rexx < prev    next >
OS/2 REXX Batch file  |  1997-12-01  |  1KB  |  28 lines
  1. /* GetInfo.rexx */
  2.  
  3. options results; address MrMPEG
  4.  
  5. MUIA_List_Active    = 0x8042391c;    MUIA_List_Entries    = 0x80421654
  6. MUIA_Slider_Level    = 0x8042ae3a;    MUIA_Slider_Max        = 0x8042d78a
  7.  
  8. list ID SLIST ATTRS MUIA_List_Active; temp_active = result
  9. list ID SLIST POS temp_active; parse var result filename','temp_total_time','detail
  10. if filename ~= 'RESULT' then do        /* Check if there's any selected song */
  11.   getvar current_song
  12.   if filename ~= result then setvar current_time '00:00'
  13.   list ID SLIST ATTRS MUIA_List_Entries; temp_max = result
  14.   setvar active temp_active
  15.   setvar max temp_max
  16.   getvar current_time; temp_current_time = result
  17.   setvar total_time temp_total_time
  18.   text ID LCD LABEL filename"\n"strip(detail)
  19.   text ID ACTIV LABEL "\033b\033r"temp_active + 1
  20.   text ID MAX LABEL "\033b\033r"temp_max
  21.   text ID CURNT LABEL "\033b\033r"temp_current_time
  22.   text ID TOTAL LABEL "\033b\033r"temp_total_time
  23.   slider ID PROG ATTRS,
  24.     MUIA_Slider_Max left(temp_total_time, 2) * 60 + right(temp_total_time, 2),
  25.     MUIA_Slider_Level left(temp_current_time, 2) * 60 + right(temp_current_time, 2)
  26. end
  27. return
  28.